home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / TBOX_VH.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  60 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   TBOX_VH .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. $INCLUDE "DAS-NBT1.INC"
  19. COLOR 7, 0
  20. CLS
  21. ? "┌────────────────────────────────────────────────────────────────────────
  22. ? "│ TBoxDRAWV( Row?, Col?, Rows?, Border%, Attr?, Connect? )
  23. ? "│ TBoxDRAWH( Row?, Col?, Cols?, Border%, Attr?, Connect? )
  24. ? "├─────────────────────────────────────────────────────────────────────────────
  25. ? "│ Draws 12 different cross members for boxes.
  26. ? "│ Cross members may be connected using the logic of TBoxDRAW borders only.
  27. ? "│
  28. ? "│ SEE the help screen for the different box styles associated with Border%
  29. ? "└─────────────────────────────────────────────────────────────────────────────
  30.  
  31. BrDr%  = 1
  32. Pause! = .5
  33.  
  34. FOR Connect? = 0 TO 1
  35.   TBoxDRAW  10, 10, 11, 21, BrDr%, 14
  36.   TBoxDRAWH 12, 10, 11,     BrDr%, 0
  37.   TBoxDRAWH 14, 20, 11,     BrDr%, 0
  38.   TBoxDRAWH 17, 10, 21,     BrDr%, 0
  39.   DELAY Pause!
  40.   TBoxDRAWV 10, 20, 11,     BrDr%, Connect?
  41.   DELAY Pause!
  42.   INCR BrDr%
  43.   TBoxDRAW  10, 50, 11, 21, BrDr%, 10
  44.   TBoxDRAWV 10, 54,  6,     BrDr%,  0
  45.   TBoxDRAWV 10, 60, 11,     BrDr%,  0
  46.   TBoxDRAWV 15, 66,  6,     BrDr%,  0
  47.   DELAY Pause!
  48.   TBoxDRAWH 15, 50, 21,     BrDr%, Connect?
  49.   INCR BrDr%
  50.   Tprint 25, 55, "Press any key to continue.", 15
  51.   WHILE NOT INSTAT : WEND
  52. NEXT
  53.  
  54. $if 0                                     ' HI!
  55.   CLS                                     '  this little box is used by
  56.   TBoxDRAW  10, 10, 11, 21, 1, 14         '  the menu routine(s) when you
  57.   TBoxDRAWV 10, 28, 11, 1, 1              '  want a slider button to
  58.   TboxDRAWH 12, 28,  3, 1, 1              '  indicate where, in the list,
  59.   TboxDRAWH 18, 28,  3, 1, 1              '  you are.
  60. $endif                                    '